home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / misc / RudeMouser.lha / mouser / Install_Mouser < prev    next >
Text File  |  1980-01-07  |  2KB  |  103 lines
  1. ;VER: Mouser installer pre v1.0
  2. ;it sux but it werks
  3.  
  4. (complete 0)
  5.  
  6. (set #introduction
  7. (cat "\n\n\n\nThis installer lets you install Mouser PreV1.0 "
  8.      "on you computer."
  9.      "You will need approximately fifty kilobytes of hard drive space free.\n"
  10.      "(oooooooohhhh !!!! =) If you dont have that then you are a complete anus"
  11. ))
  12.  
  13. (set #which-dir
  14. (cat "Where shall I put the main program ?"
  15. ))
  16.  
  17. (set #which-dir-help
  18. (cat "\nThis is where you tell the installer where to install the "
  19.      "actual mouser command. The directory SYS:C is recommended "
  20.      "because it can then be used as a command and will be easier "
  21.      "access when you need it.\n\n"
  22.      @askdir-help
  23. ))
  24.  
  25. (set #copystuff
  26. (cat "Copying the program's components..."
  27. ))
  28.  
  29. (set #copyhelp
  30. (cat "\n\n\n\n\n\n\nNow the files will be copied to the specified directory."
  31. ))     
  32.  
  33. (set #whereprefs
  34. (cat "Where shall I put the preference program ?"
  35. ))
  36.  
  37. (set #whereprefshelp
  38. (cat "\nThis is where you tell the installer where to install the "
  39.      "preference program for mouser. The recommended directory "
  40.      "is SYS:Prefs."
  41. ))
  42.  
  43.  
  44. (set #done
  45. (cat "\n\n\n\nAll Done !!!"
  46.      "\n\nJust use the prefs program and use mouser from CLI."
  47.      "\n\nBye !!!"
  48. ))
  49.  
  50. (message #introduction)
  51.  
  52. (set maintarget (askdir (prompt #which-dir)
  53.                         (help #which-dir-help)
  54.                         (default "SYS:C")
  55.                 )
  56. )
  57.  
  58. (copyfiles (prompt #copystuff)
  59.            (source "Mouser")
  60.            (dest maintarget)
  61.            (help #copyhelp)
  62.            (confirm "expert")
  63. )
  64. (complete 25)
  65. (copyfiles (prompt #copystuff)
  66.            (source "Mouser.info")
  67.            (dest maintarget)
  68.            (help #copyhelp)
  69.            (confirm "expert")
  70. )
  71. (complete 45)
  72.  
  73. (set prefstarget (askdir (prompt #whereprefs)
  74.                          (help #whereprefshelp)
  75.                          (default "SYS:Prefs")
  76.                  )
  77. )
  78.  
  79. (copyfiles (prompt #copystuff)
  80.            (source "MouserPrefs")
  81.            (dest prefstarget)
  82.            (help #copyhelp)
  83.            (confirm "expert")
  84. )
  85. (complete 70)
  86. (copyfiles (prompt #copystuff)
  87.            (source "MouserPrefs.info")
  88.            (dest prefstarget)
  89.            (help #copyhelp)
  90.            (confirm "expert")
  91. )
  92. (complete 90)
  93. (copyfiles (prompt #copystuff)
  94.            (source "ReadMeOrDieYouLamer")
  95.            (dest maintarget)
  96.            (help #copyhelp)
  97.            (confirm "expert")
  98. )
  99.  
  100. (run "multiview readmeordieyoulamer")
  101.  
  102. (message #done)
  103.